COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 00003	----- STADPY
C00007 ENDMK
C⊗;
;----- STADPY

;TRANSLATION STRENGTH.
	CALL(AIVECT,[=185],[=480+YDEL])
	CALL(FLODPY,TDEL,[4])
	LAC 1,FLAGME
	PUSH P,[[ASCIZ/ CM/]↔[ASCIZ/ FEET/]↔[ASCIZ/ METERS/]]+1(1)
	CALL(DPYSTR)

;ROTATION STRENGTH IN PI FRACTION.
	CALL(AIVECT,[=185],[=460+YDEL])
L1:	MOVE 1,RDEL↔FDVR 1,[3.14159265]↔PUSH P,1
	MOVSI (1.0)↔TDZA 3,3
L1L:	FDVRM 2,1
	UFA 1,[233000,,]↔FSB 1,2
	FMP 2,↔FAD 2,3
	CAML 2,[1000.0]↔JRST L1D
	MOVE 3,↔MOVE 2↔MOVSI 2,(1.0)
	JUMPN 1,L1L
L1D:	MOVE 1,↔FIX 1,233000↔CALL(DECDPY)↔CALL(DPYSTR{[[ASCIZ"π/"]]})
	FDVR (P)
	FADRI (233400)↔HRRZM (P)↔CALL(DECDPY)
COMMENT ⊗
;ROTATION STRENGTH IN PI FRACTION.
	CALL(AIVECT,[=185],[=460+YDEL])
L1:	LAC RDEL↔LAC 1,[3.15]
	CAMLE[6.28]↔GO L2
	CAML[2.0]↔GO[FSC 1,1↔PUSH P,1
		CALL(DTYO,["2"])↔POP P,1
		GO .+1]
	FDVR 1,RDEL↔FIX 1,233000↔PUSH P,1
	CALL(DPYSTR,{[[ASCIZ"π/"]]})
	CALL(DECDPY)⊗
L2:

;RDEL IN DEGREES, MINUTES AND SECONDS.
	CALL(AIVECT,[=270],[=460+YDEL])
	LAC 1,RDEL↔FMPR 1,[206264.806]		;SECONDS.
	FIX 1,233000
	AOS 1↔IDIVI 1,=3600↔IDIVI 2,=60
	PUSH P,3↔PUSH P,2↔PUSH P,1		
	CALL(DECDPY)↔CALL(DTYO,[" "])
	CALL(DECDPY)↔CALL(DTYO,[" "])
	CALL(DECDPY)

;DILATION STRENGTH.
	CALL(AIVECT,[=390],[=480+YDEL])
	LAC DDEL↔FMP[100.0]↔FADR[0.001]
	CALL(FLODPY,0,[2])
	CALL(DTYO,["%"])
	CALL(DTYO,[" "])
	LAC AXECNT↔ADDI 60↔CALL(DTYO,0)

;SHOW SUNSHINE VECTOR.
	SKIPE FLAGLS↔GO[
BEGIN
	Q←12 ↔ R←13 ↔ S←14
	CALL(AIVECT,[0],[0])
	LAC 1,UNIVER↔SON Q,1↔ALT Q,Q↔ALT2 Q,Q	;SUN'S FRAME.
	CW R,1↔DAD R,R↔ALT2 R,R			;CAMERA'S FRAME.
	LAC XWC(Q)↔FMP XWC(Q)↔DAC 1
	LAC YWC(Q)↔FMP YWC(Q)↔FAD 1,
	LAC ZWC(Q)↔FMP ZWC(Q)↔FAD 1,↔CALL(SQRT,1)
	LAC S,[350.0]↔FDVR S,1↔↔HRLZI IX(R)↔AOS↔BLT 9
	FMP 7,XWC(Q)↔LAC 7↔FMP 8,YWC(Q)↔FAD 8↔FMP 9,ZWC(Q)↔FAD 9
	FMP S↔FDVR [350.0]↔PUSH P,↔PUSH P,[2]
	FMP 1,XWC(Q)↔LAC 1↔FMP 2,YWC(Q)↔FAD 2↔FMP 3,ZWC(Q)↔FAD 3↔FMP S↔FIXX↔PUSH P,
	FMP 4,XWC(Q)↔LAC 4↔FMP 5,YWC(Q)↔FAD 5↔FMP 6,ZWC(Q)↔FAD 6↔FMP S↔FIXX↔PUSH P,
	CALL(AVECT)↔CALL(DPYSTR,[[ASCIZ/SUN /]])↔CALL(FLODPY)↔GO .+1]
BEND